﻿Namespace OpenArchive
    Friend Class Volume
        Private m_location As String
        Private m_SyncLock As Object

        Private m_VolumeHeader As Byte() = {&H56, &H46, &H31, &H2E, &H30}
        Sub New(ByVal Location As String)
            m_location = Location
            CreateVolumeFile()

        End Sub
        Private Sub CreateVolumeFile()
            Dim _file As New IO.FileStream(m_location, Global.System.IO.FileMode.CreateNew)
            _file.Write(m_VolumeHeader, 0, 5)
            _file.Close()
            _file.Dispose()
        End Sub
    End Class
End Namespace

